home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / KMAGV1.ZIP / PLOTEXAM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-13  |  1.6 KB  |  54 lines
  1. {PLOTEXAM.PAS / EXAMPLE FOR THE PLOTING PIXELS}
  2. {WRITING BY THE KING IN 10/13/95     }
  3.  
  4. Uses Crt;
  5. {------------------------------------------------}
  6. {Set Mode To Mode 13H , 320x200x256 Colors..     }
  7. {------------------------------------------------}
  8.  
  9. Procedure SetMode;Assembler;
  10. Asm
  11.        Mov Ah,00h  {Function 00,13 Interrupt 10h / SET MODE}
  12.     Mov Al,13h
  13.     Int 10h     {SETING TO MODE 13H}
  14. End;
  15. {------------------------------------------------}
  16. {Plot a single pixel on the screen .             }
  17. {------------------------------------------------}
  18. Procedure PutPixel(X,Y:Integer;Col:Byte);Assembler;
  19. Asm
  20.     Mov Ax,0a000h     {Ax = SEGMENT OF THE SCREEN}
  21.     Mov Es,Ax         {Es = SEGMENT OF THE SCREEN}
  22.     Mov Ax,320        {Ax = MAX VERTICAL LINE}
  23.     Mul Y             {Ax = AX * Y = HORIZONTAL LINE}
  24.     Add Ax,X          {Ax = VERTICAL LINE + HORIZONTAL LINE = OFFSET}
  25.     Mov Di,Ax         {DI = OFFSET}
  26.     Mov Al,Col        {AL = COLOR}
  27.     StoSb             {[0A000h:OFFSET] = COLOR}
  28. End;
  29. {------------------------------------------------}
  30. {Set Mode To Mode 3H , 80x25x16 Colors..         }
  31. {------------------------------------------------}
  32. Procedure SetTextMode;Assembler;
  33. Asm
  34.     Mov Ah,00h {Function 00,3 Interrupt 10h / SET MODE}
  35.     Mov Al,3h
  36.     Int 10h    {SET MODE TO MODE 3 / TEXT MODE}
  37. End;
  38.  
  39. Var
  40.     T:Word;
  41. Begin
  42.     SetMode;
  43.     Randomize;
  44.     For T:=1 To 65535 Do
  45.     Begin
  46.         PutPixel(Random(320),Random(200),Random(256));
  47.     End;
  48.     Repeat
  49.     Until(Keypressed);
  50.     SetTextMode;
  51.     Writeln('Thanks For Watching! .. Greatings From The King.');
  52.     Writeln;
  53.  
  54. End.